DO SIGNIT
DR1='n:'
F1='PUR_DRUG'
DO SIGNIT
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   INDE ON ORDER_NBER TO &DR1&F1
ENDIF
USE

F1='PUR_DISP'
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   INDE ON ORDER_NBER TO &DR1&F1
ENDIF
USE

F1='PUR_TEMP'
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   INDE ON ORDER_NBER TO &DR1&F1
ENDIF
USE
